تغییر زبان صفحه کلید

برای این کار دستور زیر را در جنرال بنویسید

Private Const HKL_NEXT = 1
Private Const HKL_PREV = 0

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

Dim oldKB As Long

بعدش دستور زیر را برای دکمه تغییر به فارسی بنویسید

    oldKB = GetKeyboardLayout(0)
    ActivateKeyboardLayout HKL_NEXT, ByVal 0&

این هم برای برگرداندنش

    ActivateKeyboardLayout oldKB, ByVal 0&

خیلی آسونه نه